home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / misc / aview.lha / AView / Install / AView.install next >
Text File  |  1999-01-14  |  23KB  |  605 lines
  1. ; $VER: AView.install 1.45 (10.02.98)
  2. ; Install script for AView (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. (SET #ApplicationName "AView")
  7. (SET #ApplicationDir "sys:tools")
  8. (SET #ApplicationDir1 "sys:utilities")
  9. (SET #ApplicationDir2 "work:tools")
  10. (SET #ApplicationDir3 "tools:")
  11. (SET #ApplicationDir4 "work:utilities")
  12. (SET #ArchiveDir "/")
  13. (SET #Language -1)
  14. (SET #Documents -1)
  15. (SET #ApplicationKeyfile (CAT #ApplicationName ".key"))
  16.  
  17. ;=============================================================================
  18. ; German strings
  19.  
  20. (IF (= @language "deutsch")
  21. (
  22. (SET default_lang 2)
  23.  
  24. (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  25. (SET #bad-installer
  26. (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  27.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  28.      "Bitte überprüfen Sie Ihre Konfiguration!\n"
  29. ))
  30.  
  31. (SET #App-InstallMsg
  32. (CAT "\n%s Installationsskript.\n\n"
  33.         "Dieses Skript installiert oder deinstalliert\n"
  34.         "%s auf Ihrem Amiga.\n\n"
  35.         "Lesen Sie die Anleitungsdatei für weitere Informationen\n"
  36.         " über den Vertrieb von %s.\n\n"
  37.         "%s © 1995-98 Guido Mersmann\n"
  38.         "Alle Rechte reserviert."
  39. ))
  40. (SET #App-MainMode "Wählen Sie den gewüschten Vorgang!")
  41.  
  42. (SET #App-Where
  43. (CAT "Wo möchten Sie %s installieren ?\n"
  44.         "(Ein Verzeichnis wird angelegt)"
  45. ))
  46.  
  47. (SET #App-Update
  48. (CAT "\nEin %s-Verzeichnis existiert im ausgewählen"
  49.         " Verzeichnis.\n\n Wenn Sie fortfahren,"
  50.         " bestätigen Sie, daß Sie die alte %s-Installation"
  51.         " mit der neuesten Version überschreiben wollen.\n\n"
  52.         "Verschiedene %s-Dateien (z.B überflüssige Dateien) werden falls nötig überschrieben!"
  53. ))
  54.  
  55. (SET #App-Main "Welche Version von %s möchten Sie installieren?")
  56. (SET #App-Main-help
  57. (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  58.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  59.      " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß"
  60.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  61.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  62.      " weiteren Speicher sparen."
  63. ))
  64.  
  65. (SET #App-Language "Welche Sprachen sollen installiert werden ?")
  66.  
  67. (SET #App-Language-help
  68. (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen"
  69.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  70.          " nur die Sprachen anwählen, die sie benötigen"
  71.          " Haken Sie also einfach die Sprachen ab, die Sie"
  72.          " Ihrem System zugänglich machen wollen."
  73.           @askoptions-help
  74. ))
  75.  
  76. (SET #App-Docs "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  77.  
  78. (SET #Startup-DefIcons (CAT "\nWollen Sie AVDeficons in die user-startup "
  79.                             "eintragen?\n\nAVDeficons ist ein kleines Tool, "
  80.                             "das es Ihnen erlaubt Piktogramme für Dateien "
  81.                             "zu definieren, die kein eigenes Piktogramm haben. "
  82.                             "Sie können jedem Dateityp, den AView kennt, "
  83.                             "ein eigenes Piktogramm zuweisen und vieles mehr!"))
  84.  
  85. (SET #Startup-DefIconsDir (CAT "\nWollen Sie die mitgelieferten Piktogramme installieren?\n\n"
  86.                             "Wenn das wollen, dann sollten Sie wissen, daß "
  87.                             "Ihre selbst erstellen Piktogramme möglicherweise überschrieben werden."))
  88.                             
  89.  
  90. (SET #startup-prompt    "\n\nJetzt werden für %s folgende Eintragungen in die S:User-Startup gemacht:\n\n%s")
  91.  
  92. (SET #App-Exit "\n\n%s installiert!!\n\nSie finden %s im Verzeichnis \"%s\"")
  93. ;------- DEINSTALL STRINGS
  94. (SET #App-DeinstallWhere "Wo liegt %s auf Ihrer Platte ?\n")
  95. (SET #App-Install "%s Installieren")
  96. (SET #App-DeInstall "%s Deinstallieren")
  97. (SET #bad-DeInstall "Es gibt keine %s Installation an der angegeben Position")
  98. (SET #StartupRemove-prompt "\n\nDie zu %s gehörenden Einträge in der User-startup werden gelöscht!")))
  99. (SET #Deinstall-Done "\n%s ist jetzt deinstalliert!")
  100. ;=============================================================================
  101. ; English strings
  102.  
  103. (IF (<> @language "deutsch")
  104. (
  105. (SET default_lang 4)
  106.  
  107. (SET #bad-kick "You must have at least Workbench 2.0+")
  108. (SET #bad-installer
  109. (CAT "You have an old version of the program 'Installer' "
  110.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  111.      "Please check your configuration!\n"
  112. ))
  113.  
  114. (SET #App-InstallMsg
  115. (CAT "\n\n%s Installation Script.\n\n"
  116.         "This script installs %s on your Amiga.\n\n"
  117.         "Read the guide file for more information\n"
  118.         " on the distribution of %s.\n\n"
  119.         "%s © 1995-98 Guido Mersmann\n"
  120.         "All rights reserved."
  121. ))
  122. (SET #App-MainMode "Please choose mode:")
  123.  
  124. (SET #App-Where
  125. (CAT "Where would you like to install %s ?\n"
  126.         "(A drawer will be created)"
  127. ))
  128.  
  129. (SET #App-Update
  130. (CAT "\n\nA %s drawer does already exist in the selected "
  131.         " directory.\n\n By selecting \"Proceed\", you"
  132.         " indicate that you want to update the %s"
  133.         " installation with the most recent version.\n\n"
  134.         "Several %s specific files will be overwritten!"
  135. ))
  136.  
  137. (SET #App-Main "Which %s version should be installed ?")
  138. (SET #App-Main-help
  139. (CAT "The OS2.0+ version should only be used on Systems with OS2."
  140.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  141.      " Special OS3.0+ functions are used to save more memory."
  142. ))
  143.  
  144. (SET #App-Language "Which languages should be installed ?")
  145. (SET #App-Language-help
  146. (CAT "\nThe Amiga can be operated in many different"
  147.           " languages."
  148.           "To reduce the amount of space consumed by the"
  149.           " language files, you can select to have only the"
  150.           " files of specific languages copied.\n\n"
  151.           "Simply check the boxes of the languages you wish"
  152.           " to have available on your system.\n\n"
  153.           @askoptions-help
  154. ))
  155.  
  156. (SET #App-Docs "Which Amiga-guide files should be installed ?")
  157.  
  158. (SET #Startup-DefIcons (CAT "\nDo you want to install AVDeficons?\n\n"
  159.                         "AVDeficons is a little programm that allows to "
  160.                         "specify icons for each AView file type."))
  161.  
  162. (SET #Startup-DefIconsDir (CAT "\nDo you want to install the included icons?\n\n"
  163.                         "If you proceed this installer script is overwriting "
  164.                         "previous installed or created aview icons.\n\nIf this is "
  165.                         "your first AView installation you should install these "
  166.                         "icons."))
  167.  
  168. (SET #startup-prompt    "\n\nSome lines need to be added to S:User-Startup for %s\n\n%s")
  169.  
  170. (SET #App-Exit "\n\n%s installed !!\n\n%s can be found in your \"%s\" drawer (or partiton).")
  171. ;--------- DEINSTALLATION STRINGS
  172. (SET #App-DeInstallWhere "Where is the location of %s ?\n")
  173. (SET #App-Install "Install")
  174. (SET #App-DeInstall "Deinstall")
  175. (SET #bad-DeInstall "There is no %s installation at the specified position!")
  176. (SET #StartupRemove-prompt "\nRemove %s lines within your user-startup?")
  177. (SET #Deinstall-Done "\n%s is now deinstalled.")
  178. ;---------
  179. ))
  180. ;----------------------------------------------------------------------------
  181. ;----------------------------------------------------------------------------
  182. ;       P_Requirements
  183. ;----------------------------------------------------------------------------
  184. ;----------------------------------------------------------------------------
  185. (PROCEDURE P_Requirements
  186. ; Workbench 37 or better required
  187. (IF (< (/ (getversion) 65536) 37)
  188. (
  189.   (abort #bad-kick)
  190. )
  191. )
  192. ; Installer 42.9 or better required
  193. (if (< @installer-version 2752521)
  194. (
  195. (abort #bad-installer)
  196. )
  197. ) ;if
  198. ) ;PROCDURE
  199. ;----------------------------------------------------------------------------
  200. ;----------------------------------------------------------------------------
  201. ;       P_DeInstall
  202. ;----------------------------------------------------------------------------
  203. ;----------------------------------------------------------------------------
  204. (PROCEDURE P_DeInstall #InstallerMode
  205.  
  206. (SET #Dummy             (ASKCHOICE
  207.                         (PROMPT #App-MainMode)
  208.                         (HELP @askchoice-help)
  209.                         (CHOICES
  210.                                 (#App-Install #ApplicationName)
  211.                                 (#App-Deinstall #ApplicationName)
  212.                         )
  213.                         ;(DEFAULT #Documents)
  214.                         )
  215. )
  216. ) ;PROCDURE
  217. ;----------------------------------------------------------------------------
  218. ;----------------------------------------------------------------------------
  219. ;       GetApplicationDir
  220. ;----------------------------------------------------------------------------
  221. ;----------------------------------------------------------------------------
  222. (PROCEDURE P_GetApplicationDir
  223. (SET #Dummy #ApplicationDir)
  224. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  225. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  226. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  227. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  228.  
  229. (SET #ApplicationDir
  230.         (TACKON
  231.                 (ASKDIR
  232.                         (PROMPT (#App-Where #ApplicationName))
  233.                         (HELP @askdir-help)
  234.                         (default #Dummy)
  235.                 )
  236.                 #ApplicationName
  237.         )
  238. )
  239. (SET @default-dest #ApplicationDir)
  240. ) ;PROCEDURE
  241. ;----------------------------------------------------------------------------
  242. ;----------------------------------------------------------------------------
  243. ;       GetDeinstallDir
  244. ;----------------------------------------------------------------------------
  245. ;----------------------------------------------------------------------------
  246. (PROCEDURE P_GetDeInstallDir
  247. (SET #Dummy #ApplicationDir)
  248. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  249. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  250. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  251. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  252.  
  253. (SET #ApplicationDir
  254.                 (ASKDIR
  255.                         (PROMPT (#App-DeInstallWhere #ApplicationName))
  256.                         (HELP @askdir-help)
  257.                         (default #Dummy)
  258.                 )
  259. )
  260.          (SET #Dummy (EXISTS (TACKON #Applicationdir #ApplicationName)))
  261.  
  262.         (Select #Dummy
  263.          (abort (#bad-DeInstall #ApplicationName))
  264.          (SET #Applicationdir #Applicationdir)
  265.          (SET #Applicationdir (TACKON #Applicationdir #ApplicationName))
  266.         ) ;Select
  267. (SET @default-dest #ApplicationDir)
  268.  
  269. ) ;PROCEDURE
  270. ;----------------------------------------------------------------------------
  271. ;----------------------------------------------------------------------------
  272. ;       Ask for Catalogs
  273. ;----------------------------------------------------------------------------
  274. ;----------------------------------------------------------------------------
  275. (PROCEDURE P_AskCatalogs #Language
  276.  
  277. (SET #Dummy     (ASKOPTIONS
  278.                 (PROMPT #App-Language)
  279.                 (HELP #App-Language-help)
  280.                 (CHOICES
  281.                         "English"
  282.                         "Deutsch"
  283.                         "Français")
  284.                 (DEFAULT #Language)
  285.         )
  286. )
  287. ) ;PROCEDURE
  288. ;----------------------------------------------------------------------------
  289. ;----------------------------------------------------------------------------
  290. ;       Copy Selected Catalogs
  291. ;----------------------------------------------------------------------------
  292. ;----------------------------------------------------------------------------
  293. (PROCEDURE P_CopyCatalogs #Language
  294. (SET n 0)
  295. (SET #DestinationRoot (TACKON #ApplicationDir "Catalogs"))
  296. (SET #SourceRoot (TACKON #ArchiveDir "Catalogs"))
  297. (MAKEDIR #DestinationRoot)
  298.  
  299. (while (< n 3)
  300.         (SET #Dummy (SELECT n "english" "deutsch" "français"))
  301.         (
  302.                 (IF (IN #Language n)
  303.                 (
  304.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  305.                         (COPYFILES
  306.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  307.                                 (DEST (TACKON #DestinationRoot #Dummy))
  308.                                 (HELP @copyfiles-help)
  309.                                 (ALL)
  310.                         )
  311.                 )
  312.                 )
  313.         )
  314. (SET n (+ n 1))
  315. )
  316. ) ;PROCEDURE
  317. ;----------------------------------------------------------------------------
  318. ;----------------------------------------------------------------------------
  319. ;       Ask for docs
  320. ;----------------------------------------------------------------------------
  321. ;----------------------------------------------------------------------------
  322. (PROCEDURE P_AskDocs #Documents
  323. (SET #Dummy             (ASKOPTIONS
  324.                         (PROMPT #App-Docs)
  325.                         (HELP @askoptions-help)
  326.                         (CHOICES
  327.                                 "english"
  328.                                 "deutsch"
  329.                         )
  330.                         (DEFAULT #Documents)
  331.                   )
  332. )
  333. ) ;PROCEDURE
  334. ;----------------------------------------------------------------------------
  335. ;----------------------------------------------------------------------------
  336. ;       Copy docs
  337. ;----------------------------------------------------------------------------
  338. ;----------------------------------------------------------------------------
  339. (PROCEDURE P_CopyDocs #Documents
  340. (SET n 0)
  341. (SET #DestinationRoot (TACKON #ApplicationDir "Docs"))
  342. (SET #SourceRoot (TACKON #ArchiveDir "Docs"))
  343. (MAKEDIR #DestinationRoot)
  344.  
  345. (while (< n 2)
  346.         (SET #Dummy (SELECT n
  347.                 "english"
  348.                 "deutsch"
  349.         )
  350.         )
  351.         (
  352.                 (IF (IN #Documents n)
  353.                 (
  354.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  355.                         (COPYFILES
  356.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  357.                                 (DEST (TACKON #DestinationRoot #Dummy))
  358.                                 (HELP @copyfiles-help)
  359.                                 (INFOS)
  360.                                 (ALL)
  361.                         )
  362.                 )
  363.                 )
  364.         )
  365. (SET n (+ n 1))
  366. )
  367. ) ;PROCEDURE
  368. ;----------------------------------------------------------------------------
  369. ;----------------------------------------------------------------------------
  370. ;       Copy_Dir (Dir)
  371. ;----------------------------------------------------------------------------
  372. ;----------------------------------------------------------------------------
  373. (PROCEDURE P_CopyDir #Dummy
  374.  
  375. (SET #DestinationRoot (TACKON #ApplicationDir #Dummy))
  376. (SET #SourceRoot (TACKON #ArchiveDir #Dummy))
  377. (MAKEDIR #DestinationRoot)
  378.  
  379.                    (COPYFILES
  380.         (SOURCE #SourceRoot)
  381.         (DEST #DestinationRoot)
  382.         (HELP @copyfiles-help)
  383.         (OPTIONAL <force>)
  384.         (ALL)
  385.         (INFOS)
  386.                    )
  387. ) ;PROCEDURE
  388. ;----------------------------------------------------------------------------
  389. ;----------------------------------------------------------------------------
  390. ;       Copy_File (Name)
  391. ;----------------------------------------------------------------------------
  392. ;----------------------------------------------------------------------------
  393. (PROCEDURE P_CopyFile #Dummy
  394.  
  395. (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0) 
  396. (
  397.                    (COPYFILES
  398.         (SOURCE (TACKON #ArchiveDir #Dummy))
  399.         (DEST #ApplicationDir)
  400.         (HELP @copyfiles-help)
  401.         (OPTIONAL <force>)
  402.         (ALL)
  403.         (INFOS)
  404.                    )
  405. )
  406. ) ;If
  407. ) ;PROCEDURE
  408. ;----------------------------------------------------------------------------
  409. ;----------------------------------------------------------------------------
  410. ;       P_Update
  411. ;----------------------------------------------------------------------------
  412. ;----------------------------------------------------------------------------
  413. (PROCEDURE P_Update
  414. (if (= (exists #ApplicationDir) 2)
  415.         (message (#App-Update #ApplicationName #ApplicationName #ApplicationName))
  416. )
  417. ) ;PROCEDURE
  418. ;----------------------------------------------------------------------------
  419. ;----------------------------------------------------------------------------
  420. ;       P_AskBinary
  421. ;----------------------------------------------------------------------------
  422. ;----------------------------------------------------------------------------
  423. (PROCEDURE P_AskBinary
  424. (set #Dummy (/ (getversion) 65536))
  425.  
  426. (if (= #Dummy 37) (set #Binary 0))
  427. (if (= #Dummy 38) (set #Binary 1))
  428. (if (>= #Dummy 39) (set #Binary 2))
  429.  
  430. (set #Binary (askchoice
  431.         (prompt (#App-Main #ApplicationName))
  432.         (help (#App-Main-help #ApplicationName))
  433.         (choices
  434.         "OS2.0+"
  435.                         "OS2.1+"
  436.                         "OS3.0+"
  437.                         )
  438.         (default #Binary)
  439.             )
  440. )
  441. ) ;PROCEDURE
  442. ;----------------------------------------------------------------------------
  443. ;----------------------------------------------------------------------------
  444. ;       P_CopyBinary
  445. ;----------------------------------------------------------------------------
  446. ;----------------------------------------------------------------------------
  447. (PROCEDURE P_CopyBinary #Dummy
  448.  
  449. (set #BinaryName (SELECT #Binary #Dummy (CAT "Bin/" #Dummy "_OS21") (CAT "Bin/" #Dummy "_OS30")))
  450. (copyfiles
  451.         (source (tackon #ArchiveDir #BinaryName) (infos))
  452.         (dest #ApplicationDir)
  453.         (newname #Dummy)
  454.         (help @copyfiles-help)
  455.         (optional <force>)
  456. )
  457. ) ;PROCEDURE
  458. ;----------------------------------------------------------------------------
  459. ;----------------------------------------------------------------------------
  460. ;       P_KeyFile
  461. ;----------------------------------------------------------------------------
  462. ;----------------------------------------------------------------------------
  463. (PROCEDURE P_KeyFile
  464.  
  465. (SET #Dummy (tackon (tackon #ArchiveDir "Keyfile") #ApplicationKeyfile))
  466.  
  467. (if (<> (exists #Dummy (noreq)) 0) ((P_CopyDir "KeyFile"))
  468. )
  469. ) ;PROCEDURE
  470. ;----------------------------------------------------------------------------
  471. ;----------------------------------------------------------------------------
  472. ;       P_CopyArchiveIcon
  473. ;----------------------------------------------------------------------------
  474. ;----------------------------------------------------------------------------
  475. (PROCEDURE P_CopyArchiveIcon
  476.                    (COPYFILES
  477.         (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info"))
  478.         (DEST (TACKON #ApplicationDir "/"))
  479.         (HELP @copyfiles-help)
  480.                    )
  481. ) ;PROCEDURE
  482. ;----------------------------------------------------------------------------
  483. ;----------------------------------------------------------------------------
  484. ;       P_AskBool
  485. ;----------------------------------------------------------------------------
  486. ;----------------------------------------------------------------------------
  487. (PROCEDURE P_AskBool #dummy
  488.  (SET #dummy (ASKBOOL      (prompt #dummy)
  489.            (help @askbool-help)
  490.            (default 1)
  491.              )
  492.  )
  493. ) ;PROCEDURE
  494. ;----------------------------------------------------------------------------
  495. ;----------------------------------------------------------------------------
  496. ;       MAIN
  497. ;----------------------------------------------------------------------------
  498. ;----------------------------------------------------------------------------
  499. (P_Requirements)
  500. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  501. (SET #InstallerMode (P_DeInstall))
  502. (welcome)
  503. ;-----------------------------------------------
  504. (IF (= #InstallerMode "0")
  505. (
  506. ;-----------------------------------------------
  507.  (SET #ApplicationDir (P_GetApplicationDir))
  508.  
  509. (COMPLETE 1)
  510.  (P_Update)
  511.  (SET #Binary (P_AskBinary))
  512. (COMPLETE 2)
  513.  (SET #Language (P_AskCatalogs #Language))
  514. (COMPLETE 3)
  515.  (SET #Documents (P_AskDocs #Documents))
  516. (COMPLETE 4)
  517.  
  518.  (SET #AVDeficons (P_AskBool #startup-deficons))
  519.    (IF (= #AVDeficons 1)
  520.      (SET #AVDeficonsDir (P_AskBool #startup-deficonsDir))
  521.    )
  522.  
  523.  
  524. ;***** Delete old Data and Prefs
  525. (MAKEDIR #ApplicationDir)
  526. (MAKEDIR (TACKON #ApplicationDir "Prefs"))
  527. (MAKEDIR (TACKON #ApplicationDir "Deficons"))
  528. (MAKEDIR (TACKON #ApplicationDir "DefIcons/Drawer"))
  529. (MAKEDIR (TACKON #ApplicationDir "DefIcons/Disk"))
  530. (MAKEDIR (TACKON #ApplicationDir "DefIcons/File"))
  531.  
  532. (COMPLETE 10)
  533.  (P_CopyBinary #ApplicationName)
  534. (COMPLETE 20)
  535.  (P_CopyBinary "AViewPrefs")
  536. (COMPLETE 30)
  537.  (P_CopyCatalogs #Language)
  538. (COMPLETE 40)
  539.  (P_CopyDocs #Documents)
  540. (COMPLETE 60)
  541.  (P_CopyDir "Data")
  542.  (P_CopyDir "libs")
  543.    (IF (= #AVDeficons 1)
  544.       (IF (= #AVDeficonsDir 1)
  545.         (P_CopyDir "Deficons")
  546.       )
  547.    )
  548.  (P_Keyfile)
  549. (COMPLETE 70)
  550.  (P_CopyFile "AVDefIcons")
  551.  (P_CopyArchiveIcon)
  552.  (P_CopyFile "AViewPrefs.info")
  553.  (P_CopyFile "Docs.info")
  554.  (P_CopyFile "Warning!!!")
  555.  (P_CopyFile "Warnung!!!")
  556.  
  557. (COMPLETE 80)
  558.  
  559. ;----- User-Startup
  560.  ((SET #dummy (cat "Path add Path " #ApplicationDir))
  561.    (IF (= #AVDeficons 1)
  562.     ((SET #dummy (CAT #dummy "\nAVDeficons")))
  563.    )
  564.  )
  565. (STARTUP #ApplicationName
  566.       (HELP @startup-help)
  567.       (PROMPT (#startup-prompt #ApplicationName #dummy))
  568.       (COMMAND #dummy)
  569. )
  570. ;-----
  571. (DELETE (TACKON #ApplicationDir "Data.info"))
  572. (DELETE (TACKON #ApplicationDir "Libs.info"))
  573. (run "avail Flush")
  574. (COMPLETE 100)
  575. (message (#App-exit #ApplicationName #ApplicationName #ApplicationDir))
  576. (exit (QUIET))
  577. ;-----------------------------------------------
  578. )) ;IF #InstallerMode = 0
  579. ;-----------  Deinstallation -------------------
  580. (IF (= #InstallerMode "1") (
  581.  
  582. (SET #ApplicationDir (P_GetDeInstallDir))
  583.  
  584.       (SET #dummy (cat "Path REMOVE Path " #ApplicationDir))
  585.       (run #dummy)
  586. (COMPLETE 30)
  587.  
  588. (STARTUP #ApplicationName
  589.       (HELP @startup-help)
  590.       (PROMPT (#startupRemove-prompt #ApplicationName))
  591. )
  592. (COMPLETE 80)
  593.  
  594. (DELETE #ApplicationDir (optional FORCE) (ALL))
  595. (DELETE (Cat #ApplicationDir ".info"))
  596. (COMPLETE 100)
  597.  
  598. (Message (#Deinstall-Done #ApplicationName))
  599. (exit (QUIET))
  600.  
  601. ;-----------------------------------------------
  602. )) ;IF #InstallerMode = 1
  603. ;-----------------------------------------------
  604.  
  605.